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# ! /us r/1 ocal /bi n/perl ksf 0 - Cl 1 ent ' txt 

# webchat(tm) client v 0.2 

# Copyright (c) 1995 Internet Roundtable Society 

# Programmed by Michael Fremont, email: webchat@irsociety.com 

# Tr'nr,^ 9 ^ I s fre e software; you can redistribute it and/or modify 
I iho U 2 der terms of the gnu General Public License as published by 

# the Free software Foundation; either version 2 of the License? V 

# Cat your option) any later version. ' 



or 



# This program is distributed in the hope that it will be useful 

# but WITHOUT ANY WARRANTY; without even the implied warranty of 

# MERCHANTABILITY nr FTtnf« cno a DADim.. A n nfliiSr "* r L?_ T y. or 



MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE See the 
GNU General Public License for more details. 

# You should have received a copy of the GNU General Public Licen 



along with this program; if not, write to the Free Software 
# Foundation, inc., 675 Mass Ave r Cambridge, MA 02139, USA. 



se 



# this script is executed when a user submits the "chat" form. 

#LITERALS 

# 

$LOCK_SH - 1 

$L0CK_EX = 2 

SL0CK_NB = 4 

$L0CK_UN = 8 

$TRUE = 1; 
SFALSE = 0; 

#GLOBALS 



$client - "http:/cgi-bin/nph-client#anchorl"; 

L Th iL-F°i low1ng 1ine is for the www- 1 * ""society, com system 

2 It In? • *■ , Vnome/weDchat/transcriDts/ksfo ,, - 

!c th ?. ^ 1owing 1ine 15 for the webchat. service. digital system P ' 
#5ta I kri I e _ ' 

u ? , r /] ? cal /h tt pd/htdocs/webchat/t ransc ri pt s/ksf o" : 
Stalkfile _ 

"/home/1 anshark/www/pages/webchat/transcripts/ksfo ,, ; 
$point_gif 

"http://www.cybertoday.com/cybertoday/webchat/point aif" ■ 
$webchat_Jogo = y 

"ht tp : //www . ccnet . com/1 aport e/i mages/ksf ol ogo . gi f " • 

^W^H? Cal - SerVer ° ;;fittp://www.cybertoday.com/ M ; 

$Jocal_tz _ » PDT (-0700 GMT) " ; 

$read_block_size = 512- 

$num_context_paras = o; ' 

$num_context_paras_when_starting = 16 • 

$e?fcj!5- s1ze : lb' * 7 digits Cspace padded) 

$way_back_when = 40 j 

# get the form 
&ReadParse; 
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ksfo-client.txt 
$last_read_para = $in{last_read_para} ; 
$wants_dates_printed = $in{wants_jdates_printed} ; 
$back_para = $in{back_para}; 

# we've changed to letting you specify how far back you want to scroll 

# we re leaving the old code in case we go back 
if($in{Back} > 0) 

$back = $TRUE; 

$back_para = $back_para - $back_jump; 
($back_para < 1) && ($back_para = 1); 

# $last_read_para = $back_para; 
$last_read_para = $1 ast_read_para - $in{Back}; 
($last_read_para < 1) && ($last_read_para =1); 



#! ! ! for debugging 
#if($in{InputText} eq "") 

# { 

# $in{handle} = "Michael Fremont"; 

# $in{inputText} = "hello, world! 1 '; 



# open a (properly initialized) transcript file 

# later: if need to die, put text in some log file somewhere 
open (TRANSCRIPT, "+<$tal kf i 1 e") I I die "client 

can't open transcript file"; 

# If the user input any text, add it to transcript file 
(Sin{InputText} ne && Sback eq '" , ) && &add_to_transcript ; 

# Update the output area or send error message if nothing new 
&ou t pu t_n ew_f o rm ; 

exit; 



sub output_new_form 

# if there is new output for this user, send it to him. Otherwise return 

# no new info error message to his browser so it keeps his current state 

{ 

local ($buf, Stbuf, $last_para, $ found, $amount_to_read) ; 

local ($para_num, Sdate, Shandle, SheadURL, SheadURLsize, $text) ; 



# look for first context paragraph that is to be output to user 

# note - it may not be in transcript file anymore, if the file was pruned 

# but for this version, assume pruning has not yet been implemented 

$first_context_para = $1 ast_read_para - $num_context_paras ; 
(Sfirst_context_para < 1) && ($f i rst_context_para « 1); 
$ffirst_context_para = 
n \0" . 

pack("A$para_mark_size'\ $fi rst_context_para) . 

# read a bl ock from the end of the file and look for the context para. 
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